#!/usr/bin/env perl

use lib qw{config};

use warnings;
use strict;

use TRFLP;
use CGI;

my $cgi = new CGI;

print $cgi->header('text-plain');


my $meg =  `$TRFLP::/bin/braycurtis $TRFLP::tmpdir/ClusBinMatrix.txt`;
$meg =~ s%data/%%gm;
$meg =~ s%_Drab.+/%:%gm;

print $meg;
